SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO



CREATE PROCEDURE [dbo].[SP_TTINTE_CNTB_U01]
/*--------------------------------------------------------------*/
/*---- Empresa		   : OFISIS S.A.				----*/
/*---- Cliente		   : OFISIS S.A.				----*/
/*---- Sistema		   : Contabilidad				----*/
/*---- M>dulo		   : Empresa   				----*/
/*---- Programa		   : Actualizaci?n Correlativos	----*/
/*---- Script		   : TWMVTO_INTE.SQL			----*/
/*---- Nombre SP	   : SP_TTINTE_CNTB_U01             ----*/
/*---- Desarrollado por	   : MLU                            ----*/
/*---- Fecha Creaci>n	   : 21/08/1999				----*/
/*---- Base de Datos	   : MS SQL Server	      	----*/
/*---- Versi>n		   : 7.0   					----*/
/*---- Invoca a SP 	   :						----*/
/*--------------------------------------------------------------*/
/*---- Modificado 1 por	   :                                ----*/
/*---- Fecha Modificaci>n  : 						----*/
/*---- Detalle Modificaci>n: 						----*/
/*--------------------------------------------------------------*/
/*-- Comentarios	   : 						      ----*/
/*--------------------------------------------------------------*/
/* drop proc SP_TTINTE_CNTB_U01 		                  ----*/
/* grant all on SP_TTINTE_CNTB_U01 to PUBLIC  		      ----*/
/* SP_TTINTE_CNTB_U01 '01', 1, 2001, 1									      ----*/
/*--------------------------------------------------------------*/
@ISCO_EMPR           TD_VC_002,
@INNU_CNTB_EMPR      TD_IN_001
As
Declare
@CNNU_ANNO            TD_IN_004_ANNO,
@CNNU_MESE            TD_IN_002_MESE,
@CSCO_UNID_CNTB       TD_VC_003,
@CSCO_OPRC_CNTB       TD_VC_003,
@CNNU_ASTO            TD_IN_001
Begin
  -- Declaraci?n Cursor
  Declare CU_TTINTE_CNTB_U01_1 Cursor For
   Select NU_ANNO, NU_MESE, CO_UNID_CNTB, CO_OPRC_CNTB, Max(Convert(Int,NU_ASTO))
   From   Txmvto_CNTB
   Where  CO_EMPR = @ISCO_EMPR
   And    NU_CNTB_EMPR = @INNU_CNTB_EMPR
   Group  By NU_ANNO, NU_MESE, CO_UNID_CNTB,CO_OPRC_CNTB
   Order  By NU_ANNO, NU_MESE, CO_UNID_CNTB,CO_OPRC_CNTB

  Open CU_TTINTE_CNTB_U01_1
    Fetch CU_TTINTE_CNTB_U01_1 Into 
          @CNNU_ANNO,@CNNU_MESE,@CSCO_UNID_CNTB,@CSCO_OPRC_CNTB,@CNNU_ASTO

  While @@fetch_status = 0
  Begin

    Update TCFECH_PROC
    Set    NU_ULTI_ASTO = @CNNU_ASTO
    Where  CO_EMPR      = @ISCO_EMPR
    And    NU_CNTB_EMPR = @INNU_CNTB_EMPR
    And    CO_UNID_CNTB = @CSCO_UNID_CNTB
    And    CO_OPRC_CNTB = @CSCO_OPRC_CNTB
    And    NU_ANNO      = @CNNU_ANNO
    And    NU_MESE      = @CNNU_MESE

    Fetch CU_TTINTE_CNTB_U01_1 Into 
          @CNNU_ANNO,@CNNU_MESE,@CSCO_UNID_CNTB,@CSCO_OPRC_CNTB,@CNNU_ASTO
  End
  Close CU_TTINTE_CNTB_U01_1
  Deallocate CU_TTINTE_CNTB_U01_1
End










GO
